home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 12
/
Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
musicolor _basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
33 lines
1 print"[147]sekunde, bitte!"
2 ifa=0thena=1:load"music 16",8,1
3 gosub10000:printchr$(14)
4 poke49162,00:poke49163,16:poke49257,03:poke49258,16
6 sys49152
10 print"[147][200]allo, [194]asic-[198]an!":print"[200]eute haben wir fuer [196]ich eine [210]outine"
20 print"von [196][207][195] [211][206][217][196][197][210] / [212][201][199][197][210][195][210][197][215] [146]!"
30 print"[205]it dieser [210]outine, die wir zwecks [214]ermeidung des [206]achladens";
40 print" mal wieder in":print"[196][193][212][193]-[218][197][201][204][197][206] untergebracht haben,"
50 print"kannst [196]u einen [212]ext von [196]ir nicht nur -"
60 print"[145]wie bei der [210]outine von [199][210][197][197][206][200][207][210][206] / [212][195] -auf einem zweifarbigen [211]creen";
70 print" dar-":print"stellen - [206][197][201][206]! : [196]u kannst ihn sogar mit einer";
80 print" [205]usik 'untermalen'!"
90 print"[211]o, wie wir die [210]outine in diesem [208]rg. verwenden, ist sie fuer [205]u";
100 print"siken gedacht,":print"[145]die bei $ 1000 [146] beginnen."
110 print"[196]en [206][193][205][197][206] der [205]usik, die nachgeladen werden soll, setzt [196]u in";
120 print" [218][197][201][204][197] 2 [146] ein.":print"[194]ei [196]einem [212]ext musst [196]u jedoch darauf"
130 print"achten, dass dieser nicht zu lang wird, damit er nicht die [205]usik ueber";
140 print"schreibt!":print" [194]itte nenne auch bei [214]erwendung dieser"
150 print" [210]outine den [206]amen des [195]oders !"
155 print" [205][213][211][201][195] [194][217] [212][205][199] / [212][201][199][197][210][195][210][197][215] ":print" [196]eine [212][201][199][197][210][195][210][197][215] "
160 poke198,0:wait198,1:list10000-
10000 fori=49152to49265:readq:pokei,q:next
10001 data 169,1,133,2,169,0,141,12,3,32,0,48,120,169,0,141
10002 data 18,208,173,17,208,41,127,141,17,208,169,129,141,26,208,169
10003 data 51,162,192,141,20,3,142,21,3,173,14,220,41,254,141,14
10004 data 220,88,96,173,25,208,141,25,208,173,18,208,201,146,176,19
10005 data 169,9,141,32,208,141,33,208,169,146,141,18,208,104,168,104
10006 data 170,104,64,169,8,141,32,208,141,33,208,169,0,141,18,208
10007 data 198,2,208,7,169,1,133,2,32,3,48,76,49,234,15,4
10008 data 9,18
10009 return